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" NOTE NEITHER ANY AUTHOR OR SMUG BYTES TAKES ANY RESPONSIBILITY 
FOR ANY HARDWARE MODIFICATIONS TO YOUR EQUIPMENT. 


Contest Program 


The program I have included in this 
issue is one i wrote for keeping trak 
fo attendance. The program is set up 
to use Jan. thru May as months 1-5 & 
5-8 are Sep. thru Nov. Each entry will 
write the month number into the 
matching recera, if found, and rewrite 
the record. This way each months 
entries can be updated and saved. For 
the month of January all records are 
written with no matching since it 
starts with a new file. All other 


months entries are matched against the 
current file. You are able to list the 
file to printer or screen. You can 
sort the file by name, save the file 
or program, or load the file. I kind 
of like the menu but to each his own. 
Well the program will be in three 
issues and it is written for the QL 
and is not transferable to the TS2068 
because of the disk. write and 
re-writes. Unless you know how to on 
your system. But the rest should work. 


2na 
BYTES 


LEG 


software at 2nd BYTES. 


for your needs. 


system. 


- We service what we sell. 


VVMVYMV VV VV VV VV VV VV VV VV VY VV VV VV 
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x SAVE THE HASSLE. 


To get a listing of this program 


took the basic program, saved 


and Imported it into Quiil. 


great way to print your program. 


will load the program into Quill 
whatever. 


printing, or modifying or 


WD 
I 
on disk, 
This is a 
It 
for 


The ieft margin will be column l and 
the right will be as far right as the 
program runs. I then change the right 


margin to 80 and can print it 
standard 8 1/2 x 11 inch paper. 


ona 
You 


have to go through the listing as some 
times the line break is confusing and 
has to be adjusted. The other probiem 
is the number of blank characters in 
They can 


between quotes. " " or RES 
be miss counted. But thats 


hope vou enjoy the program or at 


parts of it that you can use. 
and see what you can do. 


For Not-So-New 


Computers 


have 2nd BYTES sell your 


unused " computer, peripherals and software. 
- We are in the Business to sell 


your computer. 


*» SAVE MONEY. buy your computer, peripheral and 
SAVE TIME. have our professional consultants 
assist you in finding the computer and the programs 


- We are in the business to help you select an inexpensive 


* WARRANTY. on almost all equipment we sell. 


77744—1155 
9721 W. Greenfield Avenue West Allis WI 53214 


life. 


I 


least 


Have fun 


NN NNN NNN NNN FS FS AR NNN NNN NNN NNN NNN NNA 


^ 


2 SMIUG Bytes 


c 


- G IGO 
OR 


IN OTHERWORDS 
THE MEETING 
l summer is here. There was an 
cence of members at the meeting. I 
hope July will be better, but I doubt 
Sinum I don't blame vou for not wanting 
to mis rr Cem rm weather but we 


rie 
more  enthu 
CM = - 
Dee T 


further inform 


ELON: 


w yru 
Qe 
5. 
w 
< 
ct 
O 
5 


Programing Contest 
and agreed on the idea of publishing 
entries. We stiil haven't received any 
entries yet but we will. 


We discussed the 


There were interesting side talks 
after the meeting. Sorry you could not 
take part. Well see you in July. 


Commodore 
Panasonic 
Amiga 
Brother 
NEC 
Samsung 
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We received 
Computerfest. 
arena is 
get there you 
Route 48. 
Then 
Aad. Then 
of the tables 
think, 

true and 
together 
am assuming 
the 
6909 
professional booths. 
the Sinciair family, 
a lot of noise 
Your 
QL and TS1900/ZX81. 
and 
will 
members. We 


help out manning the 
be made. 


‘COMPUTER AND PRINTER REPAIR 


FACTORY AUTHORIZED SERVICE 


Apple compatibles e IBM compatibles 
@ and other popular brands 


PL eg | 4 75- 7475 
ViVi LUN 


ELECTRONICS. 
10953 west Mitchell Street 


Dayton Computer fest 


from The Dayton 
of the Hara 
Road. To 


a packet 
The location 
Shiio Spring 
can take I70 E. to State 
This is just West of I75. 
rake 48 South to Shiloh Springs 
West to the arena. A layout 
was include with our, I 
tabie marked off. if tnis is 
the Sinclair peopie are to be 
we wi!i be near the ramps. I 
zhat all areas are not on 
level. it appears there are 
market booths and L22 
This means we, 
will nave to make 
ta be noticed. So bring 
like the 288, TS2068, 
[n fact the TS1500 
Z80 would be nice. We, SMUG/Zebra 
have two tables but not a lot of 
may need some of you to 
tables. Deals can 


L001 


same 
fiea 


noisemaxers 


e Star Micronics 
e Atari 

e Citizen 

e C.Itoh 


e Silver- Reed 
e Goldstar 


Mon.- Fri. 9-7 
Saturday 12-4 


3 hocks south of Green feld Ava. 
and 7 block west af (HWY 100 


1991 


June 


PRESIDENTS PROGRAM 


It is time for the SMARC swapfest and 
I pian to he there. I hope to have 
some items for sale and hope there 
will be customers for my products. But 
if not I know more will be spent then 
made. Search these Ham and other swap 
meets for Sinclair items. You never 
know just what your will find. Also 
gets the Sinclair name out and mavbe a 
new member or two. It does happen. 
Hams still use Sinclair computers. 


The program I am putting in the news 
letter is one I wrote to keep track of 
attendance for another group but you 
can break it up into sections for 
Menus or disk writes or what ever. I 
hope you can use it or parts of it. 


Upcoming  computer/ham shows: Swapfest 
91. Amer. Legion Post-Oak Creek. Sat. 
Julv 6, 1991. SMARC. Hamfest & 
Computer Expo. Eau Clair WI. Sat. July 
24 1991. $3 at the door. Sat. & Sun. 
Sept. 21-22 Radio Expo Grayslake Il. 
$5 in advance $6 at door. Sat. Oct. 5, 
1991 Fallfest '91. Greenbav Community 
Center Sam til ?. $2 at the door.The 
Kettle Moraine Radio Amateurs 
Swapfest, Sunday, Oct. 13th, 1991, 
Waukesha Expo Center. $4-$5 at the 
door. 


Please note all you digitizer's to be 
out there; we are down to our last few 
boards. If you were thinking about 
purchasing one better hurry. We don't 
plan on having anymore made as the 
demand has subsided. 
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EMSoft 
Software for the QL that works hard 


Now has in-stock the very best true 
WYSIWYG QL word-processor: texts? 
v3.00 with spell check and several 
new features. (includes 1 hr USA 


help line). $94.95 
Tax-time means TAX-1-QL/89 $24.95 
RECIPE _dbf $14.95 
INVENTORY _dbf $9.95 
TRUST_FUND _dbf $24.95 
QLAND_LORD _dbf $24.95 
MAILBAG _dbf $24.95 
DBTutor _dbf $24.95 
DBProgs _dbf $19.95 
COIR/BOOTS SBas $9.95 


On 8.25" DO or QD disks. On 3.5" or 
microcartridge add $2.00. 


FREE CATALOGUE 


IEMSott 
P.O. Box 8763 
Boston MA 02114 
(617)889-0830 


Two tough things to find for your 
Timex or Sinclair ZX/TS conputer-- 


SOLID INFORMATION & GOOD CONNECTORS 


YOU KNOW WHERE TO GET THE BEST INFO 
FOR YOUR ZX/TS--SYNTAX, SQ, & THE 

FOYT BOOK CHECK IT OUT--ASK ANYONE-- 
THEN GET 'EM ALL FOR 


JUST $19.95 plus $10 S&H 
BUS CONNECTOR & EXTENDER & HOUSING 
LIKE A PRINTER CONNECTOR 


Keyed Connector, Extender PC Board 
PLUS Molded Black Plastic Housing 


Fits: 2X80 & 81 

TS1000 & 1500 

PC8300 s 
ZX/TS SUBSET 

OF SPECTRUM 

& 2068 


Pkg of 3, ONLY $13.95 plus $2 S&H 
SAVE Buy 2, get a FREE one 
9 for $26.95 + $6 S&H SAVE 


` EMS, Box 8763, Boston, MA 02114-8763 
617-889-0830 VISA & MC Add 4% 
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f^» REMark Attendence program Biil Heberiein SMUG CONVERSIONS 
t REMark "ATTEND" 

25 MODE 8: month=1 

26 IF month<1 OR month >8 THEN month =1 

27 BORDER 3: PAPER 3: INK ð: CLS #0: CLS #1: CLS #2 

30 DIM d$(500,60): GO SUB 1950: w=0 

20 c$-"JAN-1, FEB-2, MAR-3, APR-4, MAY-5, SEP=6, OCT=7, NOV-8" 
60 GO TO 5400 

400 REMark find month 

410 z$=" zzz" 

420 FOR n=5 TO 54 STEP 7 

430 IF c$(n)=month THEN z$-c$(n-4 TO n-2) 

450 NEXT n: END FOR n 

460 RETurn 

500 REMark menu 


205 PAPER 5: INK 0: CLS $0: CLS #1: CLS #2: GO SUB 400: BORDER 9,5,7: CLS 


510 1=5 

520 AT 0,4: PRINT "ATTENDENCE PROGRAM MENU": AT 1,4: PRINT "ADDING the month of 
";Z$: AT 2,4: PRINT "To make selection move => to Proper line, use arrow up 
and down, then press enter." 


530 FOR n=1 TO 12 

540 1=1+1: GO SUB 600-(n*10): NEXT n: END FOR n: 1-26 
545 n=1 

546 IF 1517 THEN 1-26: n=1: END IF 

547 IF 1<6 THEN 1-217: n=12: END IF 


PUN AT 1,0: FLASH 1: INK 2: PRINT "=>": FLASH 0: GO SUB 600-(n*10): INK @ 


inky$=INKEY$(@): IF CODE (inky$)=@ THEN GO TO 555: END IF 


500 IF CODE(inky$)=(216) THEN AT 1,0: PRINT " ^": GO SUB 600+(n*10): l=1+1: 


nentl: GO TO 546: END IF 


970 IF CODE(inky$)-(208) THEN AT 1,0: PRINT " ^": GO SUB 600-*(n*10): INK 2: 


l=1-1: n=n-1: GO TO 546: END IF 

380 IF CODE(inky$)=(1@) THEN ON n GO SUB 1000, 2000, 3000, 4000, 5000, 
7000, 8000, 11000, 10000, 12000, 14000: GO TO 500: END IF 

590 GO TO 555 

600 REMark print menu lines 

610 AT 1,4: PRINT "MONTHLY DETAIL PROCESSING" 


615 RETurn 

620 AT 1,4: PRINT "DISPLAY/PRINT CURRENT LIST" 
525 RETurn 

630 AT 1,4: PRINT "DISPLAY/PRINT DROPPED LIST" 
635 RETurn 

640 AT 1,4: PRINT "LIST ALL WHO MISSED MEETING" 
645 RETurn 

650 AT 1,4: PRINT "SAVE THE PROGRAM" 

655 RETurn 

660 AT 1,4: PRINT "END SESSION" 

665 RETurn 


670 AT 1,4: PRINT "DROP MORE THAN 1 MISS" 
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6000, 
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J Wait 
i SUUS 
= TAA 
SESS IP AU 
(et ees RRS y - VU 


Do thesa sound familiar? 
We still have these items as weil as a 


lot of s/w and h/w to usa with tham. if you need RNYTHING tor your T/S 
Over 80 titles for the T/S1000- COMPUTER. CAIL US FIRST! 


Over 50 titles for the T/22060- AS THE WORLO'S LARGEST T/S DEALER. 


UE WILL DO OUR BEST TO FILL YOUR NEEDS? 
Paper for the T/S2040- FROM T/SIGOG & T/32068 3/4 TO 


interfaces. printers. paper & ribbons- HARDwAMh ITEMS LIKE PRINTER I1/FS. DISK I/FS 


k = " AS WELL AS THE PRINTERS AND DISK ORIVES TO 
Controllers. drives & disks for the 2068 USE THEM WITH, WE CAN SUPPLY THEM ALL! 


Many other items avaiable- IF YOU WOULD LIKE ONE OF OUR BIG 40° PAGE 
CATALOGS. JUST SEND $23 (REFUNDABLE) TO 


Send $3 (refundable) for catalog to: THE AQORESS BELOW, 


RMG ENTERPRISES rig EuEIPBIS 


INI A Bed 3395.8 H 


E — 
~ WSA | 1419 V2 ?fH STREET ag dee sam va 77H STREET "VGA 


E VASA 
fi £1 ty, =” OREGON CITY. OR 970485 zy 
OREGOM CITY, OR 97045 | = SUA ONSON NOQN-10PM PT TUE-SAT 


GK ENTERPRISES 
Your Computer Supply Source 
No need to wait for a sale. 
Our prices are low everyday 
Wide selection of printer ribbons 
AXIOM C. ITOH EPSON OKIDATA 
PANASONIC STAR AND MANY MORE. 


We e Ye e e de je je de e e ve ve de 


*SMUG SPECIAL* 


ee de de de de e de je e e ve ve ve 


2700 sheets 9 1/2 x 11 20% Microperf $23.50 


wk k k e k k k we k ke k k ke 


* 546-0111 * 


ye e ve ve t de ve ve e e ve de ve v 


VV VV VV VV VV VV VV VV VV VV VY VV VV 


8634 W. National Avenue West Allis WI 53227 
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Vv 
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675 RETurn 
680 AT 1.4: 
685 RETurn 
690 AT 1,4: 
695 RETurn 
700 AT 1,4: 
705 RETurn 
710 AT 1,4: 
715 RETurn 
720 AT 1,4: 
725 RETurn 


900 REMark Clear remaining m$ records after dropping and shifting the m$ file. 


PRINT 
PRINT 
PRINT 
PRINT 


PRINT 


"SORT THE NAMES" 

"LOAD THE NAMES FILE" 
"PRINT THE NAMES FILE" 
"SAVE THE NAMES FILE" 


"ADJUST MASTER - MENU' 


910 FOR n-w-«1 TO 500 


920 m$(2, 1 TO 60) 


==> note 60 blanks <== 


930 NEXT n: 
940 RETurn 


END FOR n 


1000 REMark MONTHLY DETAIL PROCESSING 
1: PAPER 1: INK 6: CLS 


1010 BORDER 


1020 AT 0,4: PRINT 
1030 AT 2,0: PRINT " 


c$ 


1435 AT 10,4: PRINT 


"MONTHLY DETAIL PROCESSING" 


1040 PRINT £0," ENTER MONTH NUMBER" 


1045 inky$=INKEY$(Q) : 


1047 r$=inky$ 
1050 IF inky$<"9" 


1065 GO TO 1045 


1080 CLS #0: 
1081 GO SUB 


CLS #1: CLS #2: IF inky$="1" THEN month-1: 


9200 


AND inky$»5"Q" THEN GO TO 1980: END IF 
1062 IF inky$="m" OR inky$="M" THEN RETurn 


1082 OPEN NEW £$7,f1p2 master 


1083 IF CODE (inky$)=CODE (month+1) THEN GO TO 1100: END IF 
1084 PRINT x0," Not a continious month. OK?(Y/N)" 
1086 inky$=INKEY$(@): IF inky$=="Y" THEN month=r$: GO TO 1130: 


1088 IF inky$=="n" THEN GO TO 1000: END IF 


1090 GO TO 1086 
1100 month=r$ 
1120 REMark enter name 

1130 CLS #0: CLS #1: CLS #2 


1132 PAPER 1: 


1135.80. SUB 


1140 IF x$(1, 


1300 


1 TO 3)-"END" THEN w=1: 


BORDER 9,1,7: INK 6: CLS 


1142 REMark match name 


1144 GO SUB 


1150 IF r$="y" THEN m$(w, 5@+month)=month: GO TO 1135: END IF 


1400 


(799 GO TO 1135 


SMUG 


Bytes 


AT 4,0: 


"Enter M to return to the menu" 


IF CODE(inky$)=@ THEN GO TO 1045: END IF 


GO SUB 9300: RETurn 


CLS: GO TO 1200: 


END IF 


June 


INK 7: PRINT 


END IF 


1991 


J 
1200 REMark January 
1204 OPEN NEW #7,fip2_master 
1210 w-1: CLS: INPUT "Enter year ie; 1985-85 "; year: CLS: n=@: DIM m$(501,60): 
GO SUB 1900 
1220 GO SUB 1300 
1230 IF x$(l, 1 TO 3)="END" THEN CLS: GO SUB 91508: RETurn : END IF 
1240 GO SUB 15009 
1250 GO TO 1220 
1300 REMark enter name last, first 
1316 DIM x$(1,60): y=1 
1320 INPUT #@,'"'Last name up to 30 characters 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "; x$(1, 1 TO 30) 
1325 IF CODE(x$(1, 1))>CODE("Z") OR CODE (x$(1, 2)) >CODE("Z") OR CODE 
(x$(1,3))»CODE("Z") THEN CLS #0: PRINT sQ,'Turn on upper case": GO TO 1310 
1330 PRINT x$(1, 1 TO 30) 
1335 IF x$(1, 1 TO 3)="END" THEN RETurn : END IF 
1336 PRINT s$Q,"Correct? y/n" 
1338 inky$=INKEY$(@): IF CODE (inkvy$)-(0) THEN GO TO 1338: END IF 
1345 IF inky$--"y" THEN GO TO 1360: END IF 
1350 IF inky$=="n" THEN GO TO 1320: END IF 
1355 GO TO 1336 


1360 INPUT #0," "First name up to 20 characters XXXXXXXXXXXXXXXXXXXX 

":x$(1, 31 TO 50) 

1365 PRINT " ":x$(1, 31 TO 50) 

1370 PRINT #0," Correct? y/n" Q 


1380 inky$-INKEY$(0): IF CODE(inky$)-2-(0) THEN GO TO 1380: END IF 

1382 IF inky$=="n" THEN GO TO 1360: END IF 

1385 IF inky$=="y" THEN RETurn : END IF 

1395 GO TO 1380 

1400 REMark match to name file 

1410 w=0: r$-2' n" 

1420 w=w+l 

1430 IF w»500 THEN PRINT #0,"no more room": STOP: END IF 

1440 IF m$(w, 1 TO 50)-x$(1, 1 TO 50) THEN r$="y": PRINT "MATCHED": RETurn: 
END IF 

1450 IF m$(w, 1 TO 5)=" " THEN r$="n'': PRINT "no match": GO SUB 15200: 
RETurn : END IF 

1460 GO TO 1420 

1500 REMark add all if Jan; unmatched if any other month 

1540 m$(w, 1 TO 50)=x$(1, 1 TO 50): m$(w, 5@+month)=month: m$(w, 59 TO 6@)=year: 

GO SUB 9100: length=w: w=wtl 

1550 RETurn 

1600 REMark flag all records with 2 or more missed meetings. will not check for 

drop after last entered month. 

1605 PAPER 7: CLS: AT 12,5: PRINT "FLAGGING RECORDS TO DROP": n=1 

1610 PRINT "Are you sure? y/n" 

1615 inky$=INKEY$(@): IF inky$=="Y" THEN GO TO 1620: END IF 

1617 IF inky$=="N" THEN RETurn : END IF 

1618 GO TO 1615 
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15 
l 
1630 
1640 
1650 
l660 
1670 
io80 
1690 
i700 
1710 
1712 
is 
1720 
1730 
END 
1750 
1760 
1770 
1780 
1800 
1805 
1810 
1820 
1830 


ð m1: drop=0: FLASH i: AT 10,7: PRINT "Fiagging Them": FLASH Q0: 


IF m$(n, 1 TO 1@)=" " THEN GO TO 16570 
IF m»montn THEN GO TO 16728: END IF 

IF m$(n, 50+m)=" " THEN drop=drop+l: END IF 
m=m+ 1 

GO TO 1530 


IF drop»i THEN m$(n, 6@)="d'"': END IF 

n=n+1: IF n»500 THEN drop-0: GO TO 1700: END IF 

GO TO 1628 

REMark rewrite m$ dropping "d in 60" records 

w=l: n=l: m=1 

BORDER 9,4,7: PAPER 4: INK 0: CLS 

AT 15,4: PRINT "Dropping 'd in 60 records'" 

IF n2499 THEN GO SUB 9300: RETurn : END IF 

IF m$(w, 6@)="d" THEN d$(m, 1 TO 6@)=m$(w, 1 TO 60): m=m+l: GO TO 1760: 
IF 


w=wt+l 

n=ntl 

m$(w, 1 TO 50)-2m$(n, 1 TO 60) 
GO TO 1720 

REMark insert and drop records 
STOP 


FOR n=500 TO 1 STEP -1 
m$(n*l, 1 TO 60)=m$(n, 1 TO 60) 
IF m$(n, 1 TO 5@)<x$(1, 1 TO 50) THEN m$(n, 1 TO 60)=x$(1, 1 TO 60): m$(n, 


5@+month)=month: m$(n, 59 TO 6@)=year: RETurn : END IF 


Y 

1650 
1900 
1905 
1910 
1920 


1930 
1940 
1950 
1960 
1970 


1980 
1990 
2000 
2010 
2020 


NEXT n: END FOR n 

m$(1, 1 TO 60)-x$(1, 1 TO 60): RETurn 
REMark move spaces to m$ or d$ 

CLS: AT 15,4: PRINT "PREPARING MASTER FILE" 
FOR n=@ TO 500 

m$(n, 1 TO 6@)=" 


NEXT n: END FOR n 

RETurn 

CLS: BORDER 9,3,7: AT 15,4: PRINT "PREPARING WORK FILE" 
FOR n=@ TO 500 

d$(n, 1 TO 6@)=" 


NEXT n: END FOR n 

RETurn 

REMark display/list current file 

PAPER 6: INK 2: CLS: BORDER 9,6,7 

AT 0,3: PRINT "DISPLAY/PRINT CURRENT FILE": AT 2,0: PRINT "TO DISPLAY ON 


THE SCREEN ENTER D": AT 3,0: PRINT "TO PRINT TO THE PRINTER ENTER P": AT 4,0: 
PRINT "TO RETURN TO THE MENU PRESS M" 


2023 
2030 
2040 


A. 


AT 1,5: PRINT "Current Month Is ";z$ 
AT 15,0: PRINT "ENTER TYPE OF LISTING WANTED D/P" 
inky$=INKEY$(@): IF inky$="D" OR inky$-"d" THEN GO TO 2500: END IF 
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Tne Sinclair Milwaukee Users Group 
C SMUG) 


We are a not-for-profit group devoted 
to serving the interests of those who 
own, use, and/or are interested in the 


Timex/Sinclair family of computers. 


Editor and contact person is: 

Bill Heberlein (414) 527 2191. 

SMUG maintains a gratis exchange of 
newsletters with approximately 30 
Users Groups across the U.S. and 
Canada. Clubs not sending newsletters 
for more than 6 months are removed 


from our mailing list. 


SMUG BYTES 

5052 N. 91st Street 
Milwaukee WI 53225-4129 
Address Correction Requested 


The next meeting of SMUG will be held on: 
3,1991 


Wednesday, July 


Newsletter subscription is available 


for only $10 per year to non members 
or free with a club membership. A club 
membership is $20 per year for a 
family membership. 

Advertising cost for 1/2 page ad 
runing for six months is $16. The ad 


copy may be 
must supply 


changed each month but you 
the copv. 
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NITE-TIMES NEWS 
CATUG Newsletter 
613 Parkside Circle 


6:00 Set Up 6:30 Streamwood , ee 
7:30 Business Meeting 8:30 
9:00 The Contest 10:30 Clean Up 
Wednesday, August 7,1991 

6:00 Set Up 6:30 
7:30 Business Meeting 8:30 
9:00 10:30 Clean Up 
Location: 
Equitable Savings and Loan, 
145th and Capital Drive, 
Milwaukee WI 
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